Otherware/Otherware_1_SB_Development.iso/mac/hypercar/xcmd/proglib.sit/Resource Library/background_3089.txt

Text File | 1989-05-29 | 9.2 KB | 451 lines

-- background: 3089 from stack: in
-- bmap block id: 5209
-- flags: 4000
-- background id: 0
-- name: Commands
----- HyperTalk script -----
on AddNewCard name
  doMenu "New Card"
  put name into background field "Name"
  put "XCMD" into background field "resType"
end AddNewCard

on idle
  doHilite
end idle

on hideFields
  set visible of background field "HighlightAreas" to false
  set visible of background field "AssocList" to false
end hideFields

on showFields
  set visible of background field "HighlightAreas" to true
  set visible of background field "AssocList" to true
end showFields

on openCard
  if (the version ≥ 1.2) then
    if the cantDelete of this card then
      hide bg btn "Delete"
      hide bg btn "Rename"
    else
      show bg btn "Delete"
      show bg btn "Rename"
    end if
    resetHighlight
  end if
end openCard

on openBackground
  show background button "Delete"
  show background button "Rename"
  resetHighlight
end openBackground



-- part 1 (button)
-- low flags: 00
-- high flags: 0001
-- rect: left=7 top=304 right=335 bottom=35
-- title width / last selected line: 0
-- icon id / first selected line: 3835 / 3835
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Prev
----- HyperTalk script -----
on mouseUp
  go to previous card of this background
end mouseUp



-- part 3 (button)
-- low flags: 80
-- high flags: 8003
-- rect: left=303 top=306 right=331 bottom=397
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Delete
----- HyperTalk script -----
on mouseUp
  deleteRes background field "AssocList"
end mouseUp



-- part 4 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=102 top=306 right=331 bottom=199
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Paste
----- HyperTalk script -----
on mouseUp
  put background field resType && background field "Name" & return into tmp
  put background field "AssocList" after tmp
  go to card "Paste"
  put tmp after card field "ToPaste"
end mouseUp



-- part 5 (button)
-- low flags: 00
-- high flags: 0001
-- rect: left=475 top=26 right=59 bottom=504
-- title width / last selected line: 0
-- icon id / first selected line: 21700 / 21700
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Home
----- HyperTalk script -----
on mouseUp
  go home
end mouseUp



-- part 6 (button)
-- low flags: 00
-- high flags: 0001
-- rect: left=476 top=305 right=336 bottom=504
-- title width / last selected line: 0
-- icon id / first selected line: 29484 / 29484
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Next
----- HyperTalk script -----
on mouseUp
  go to next card of this background
end mouseUp



-- part 7 (field)
-- low flags: 00
-- high flags: 0007
-- rect: left=103 top=157 right=271 bottom=397
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: Description


-- part 8 (field)
-- low flags: 00
-- high flags: 0007
-- rect: left=103 top=87 right=138 bottom=396
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: Syntax


-- part 10 (button)
-- low flags: 00
-- high flags: 0001
-- rect: left=475 top=60 right=93 bottom=504
-- title width / last selected line: 0
-- icon id / first selected line: 24317 / 24317
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Welcome
----- HyperTalk script -----
on mouseUp
  go to card "Welcome"
end mouseUp



-- part 11 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=423 top=220 right=245 bottom=507
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Sounds
----- HyperTalk script -----
on mouseUp
  go to first card of background "Sounds"
end mouseUp



-- part 12 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=423 top=162 right=187 bottom=507
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Functions
----- HyperTalk script -----
on mouseUp
  go to first card of background "Functions"
end mouseUp



-- part 13 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=423 top=191 right=216 bottom=507
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Icons
----- HyperTalk script -----
on mouseUp
  go to first card of background "Icons"
end mouseUp



-- part 14 (field)
-- low flags: 00
-- high flags: 0004
-- rect: left=139 top=26 right=54 bottom=379
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 18
-- style flags: 256
-- line height: 24
-- part name: Name


-- part 19 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=423 top=249 right=274 bottom=507
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Add
----- HyperTalk script -----
on mouseUp
  go to card "Add"
end mouseUp



-- part 21 (button)
-- low flags: 80
-- high flags: A003
-- rect: left=206 top=306 right=331 bottom=296
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Rename
----- HyperTalk script -----
on mouseUp
  renameRes
end mouseUp



-- part 23 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=6 top=30 right=53 bottom=58
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 14
-- style flags: 256
-- line height: 18
-- part name: resType


-- part 26 (button)
-- low flags: 00
-- high flags: C005
-- rect: left=221 top=140 right=156 bottom=294
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Locked
----- HyperTalk script -----
on mouseUp
  put not the hilite of me into state
  set lockText of background field "Syntax" to state
  set lockText of background field "Description" to state
  set hilite of me to state
end mouseUp



-- part 27 (field)
-- low flags: 80
-- high flags: 0007
-- rect: left=156 top=120 right=205 bottom=356
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: HighlightAreas


-- part 28 (field)
-- low flags: 80
-- high flags: 0007
-- rect: left=158 top=55 right=265 bottom=326
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 4
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: AssocList


-- part 29 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=4 top=56 right=78 bottom=104
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Associate╔
----- HyperTalk script -----
on mouseUp
  put the short name of this card into tmp
  go to card "Associate"
  initAssoc tmp
end mouseUp



-- part 30 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=423 top=133 right=158 bottom=507
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Cursors
----- HyperTalk script -----
on mouseUp
  go to first card of background "Cursors"
end mouseUp



-- part 32 (button)
-- low flags: 00
-- high flags: 0001
-- rect: left=2 top=256 right=300 bottom=43
-- title width / last selected line: 0
-- icon id / first selected line: 32670 / 32670
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Scan
----- HyperTalk script -----
on mouseUp
  repeat until the mouseClick
    visual effect dissolve
    go to next card of this background
  end repeat
end mouseUp



-- part 33 (button)
-- low flags: 00
-- high flags: 0001
-- rect: left=2 top=210 right=254 bottom=43
-- title width / last selected line: 0
-- icon id / first selected line: 20186 / 20186
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Sort
----- HyperTalk script -----
on mouseUp
  lock screen
  set cursor to watch
  put the name of this cd into start
  sort by fld "Name"
  go to start
  set cursor to hand
  unlock screen
end mouseUp